package org.jeecg.common.util;

import io.lettuce.core.RedisException;
import org.jeecg.common.constant.CacheConstant;
import org.springframework.data.geo.Circle;
import org.springframework.data.geo.GeoResults;
import org.springframework.data.redis.connection.RedisGeoCommands;
import org.springframework.data.redis.connection.lettuce.LettuceConnectionFactory;
import org.springframework.data.redis.core.Cursor;
import org.springframework.data.redis.core.RedisCallback;
import org.springframework.data.redis.core.RedisTemplate;
import org.springframework.data.redis.core.ScanOptions;
import org.springframework.stereotype.Component;
import org.springframework.util.ClassUtils;
import org.springframework.util.CollectionUtils;

import javax.annotation.Resource;
import java.io.IOException;
import java.nio.charset.StandardCharsets;
import java.util.*;
import java.util.concurrent.TimeUnit;
import java.util.concurrent.locks.Lock;
import java.util.concurrent.locks.ReentrantLock;
import java.util.function.Consumer;
import java.util.stream.Collectors;

/**
 * redis 工具类
 *
 * @Author Scott
 */
@Component
public class RedisUtil {

    @Resource
    private RedisTemplate<String, Object> redisTemplate;

    /**
     * 指定缓存失效时间
     *
     * @param key  键
     * @param time 时间(秒)
     * @return
     */
    public boolean expire(String key, long time) {
        try {
            if (time > 0) {
                redisTemplate.expire(key, time, TimeUnit.SECONDS);
            }
            return true;
        } catch (Exception e) {
            e.printStackTrace();
            return false;
        }
    }

    public boolean expire(long time, String... keys) {
        try {
            if (time <= 0) return false;
            for (String key : keys) {
                redisTemplate.expire(key, time, TimeUnit.SECONDS);
            }
            return true;
        } catch (Exception e) {
            e.printStackTrace();
            return false;
        }
    }

    /**
     * 根据key 获取过期时间
     *
     * @param key 键 不能为null
     * @return 时间(秒) 返回0代表为永久有效
     */
    public long getExpire(String key) {
        return redisTemplate.getExpire(key, TimeUnit.SECONDS);
    }

    /**
     * 判断key是否存在
     *
     * @param key 键
     * @return true 存在 false不存在
     */
    public boolean hasKey(String key) {
        try {
            return redisTemplate.hasKey(key);
        } catch (Exception e) {
            e.printStackTrace();
            return false;
        }
    }

    /**
     * 删除缓存
     *
     * @param keys 可以传一个值 或多个
     */
    @SuppressWarnings("unchecked")
    public void del(String... keys) {
        if (keys != null && keys.length > 0) {
            if (keys.length == 1) {
                redisTemplate.delete(keys[0]);
            } else {
                redisTemplate.delete(CollectionUtils.arrayToList(keys));
            }
        }
    }

    // ============================String=============================

    /**
     * 普通缓存获取
     *
     * @param key 键
     * @return 值
     */
    public Object get(String key) {
        return key == null ? null : redisTemplate.opsForValue().get(key);
    }

    public <T> List<T> multiGet(List<String> keys, Class<T> clazz) {
        return Objects.requireNonNull(redisTemplate.opsForValue().multiGet(keys))
                .stream().map(clazz::cast).collect(Collectors.toList());
    }

    /**
     * 缓存获取（Object自动转换List类型）
     *
     * @param key   redis key
     * @param clazz 类型class
     * @return 转换后的list
     * @author chechen
     * @date 2022-04-15
     */
    public <T> List<T> getList(String key, Class<T> clazz) {
        Object o = this.get(key);
        if (Objects.nonNull(o)) {
            return castList(o, clazz);
        } else {
            return Collections.emptyList();
        }
    }

    /**
     * 缓存获取（Object自动转换实体类型）
     *
     * @param key   redis key
     * @param clazz 类型class
     * @return 转换后的实体
     * @author chechen
     * @date 2022-04-15
     */
    public <T> T getEntity(String key, Class<T> clazz) {
        return clazz.cast(this.get(key));
    }

    /**
     * 查找与给定 {@code pattern} 匹配的所有缓存。（Object自动转换实体类型）
     *
     * @param pattern must not be {@literal null}.
     * @param clazz   类型class
     * @return 查出的缓存集合
     * @author chechen
     * @date 2022-04-21
     */
    public <T> List<T> match(String pattern, Class<T> clazz) {
        return Objects.requireNonNull(redisTemplate.keys(pattern)).stream().map(key ->
                this.getEntity(key, clazz)).collect(Collectors.toList());
    }

    /**
     * 普通缓存放入
     *
     * @param key   键
     * @param value 值
     * @return true成功 false失败
     */
    public boolean set(String key, Object value) {
        try {
            redisTemplate.opsForValue().set(key, value);
            return true;
        } catch (Exception e) {
            e.printStackTrace();
            return false;
        }

    }

    /**
     * 普通缓存放入并设置时间
     *
     * @param key   键
     * @param value 值
     * @param time  时间(秒) time要大于0 如果time小于等于0 将设置无限期
     * @return true成功 false 失败
     */
    public boolean set(String key, Object value, long time) {
        try {
            if (time > 0) {
                redisTemplate.opsForValue().set(key, value, time, TimeUnit.SECONDS);
            } else {
                set(key, value);
            }
            return true;
        } catch (Exception e) {
            e.printStackTrace();
            return false;
        }
    }

    /**
     * 递增
     *
     * @param key 键
     * @param by  要增加几(大于0)
     * @return
     */
    public long incr(String key, long delta) {
        if (delta < 0) {
            throw new RuntimeException("递增因子必须大于0");
        }
        return redisTemplate.opsForValue().increment(key, delta);
    }

    /**
     * 递减
     *
     * @param key 键
     * @param by  要减少几(小于0)
     * @return
     */
    public long decr(String key, long delta) {
        if (delta < 0) {
            throw new RuntimeException("递减因子必须大于0");
        }
        return redisTemplate.opsForValue().increment(key, -delta);
    }

    // ================================Map=================================

    /**
     * HashGet
     *
     * @param key  键 不能为null
     * @param item 项 不能为null
     * @return 值
     */
    public Object hget(String key, String item) {
        return redisTemplate.opsForHash().get(key, item);
    }

    /**
     * 获取hashKey对应的所有键值
     *
     * @param key 键
     * @return 对应的多个键值
     */
    public Map<Object, Object> hmget(String key) {
        return redisTemplate.opsForHash().entries(key);
    }

    /**
     * HashSet
     *
     * @param key 键
     * @param map 对应多个键值
     * @return true 成功 false 失败
     */
    public boolean hmset(String key, Map<String, Object> map) {
        try {
            redisTemplate.opsForHash().putAll(key, map);
            return true;
        } catch (Exception e) {
            e.printStackTrace();
            return false;
        }
    }

    /**
     * HashSet 并设置时间
     *
     * @param key  键
     * @param map  对应多个键值
     * @param time 时间(秒)
     * @return true成功 false失败
     */
    public boolean hmset(String key, Map<String, Object> map, long time) {
        try {
            redisTemplate.opsForHash().putAll(key, map);
            if (time > 0) {
                expire(key, time);
            }
            return true;
        } catch (Exception e) {
            e.printStackTrace();
            return false;
        }
    }

    /**
     * 向一张hash表中放入数据,如果不存在将创建
     *
     * @param key   键
     * @param item  项
     * @param value 值
     * @return true 成功 false失败
     */
    public boolean hset(String key, String item, Object value) {
        try {
            redisTemplate.opsForHash().put(key, item, value);
            return true;
        } catch (Exception e) {
            e.printStackTrace();
            return false;
        }
    }

    /**
     * 向一张hash表中放入数据,如果不存在将创建
     *
     * @param key   键
     * @param item  项
     * @param value 值
     * @param time  时间(秒) 注意:如果已存在的hash表有时间,这里将会替换原有的时间
     * @return true 成功 false失败
     */
    public boolean hset(String key, String item, Object value, long time) {
        try {
            redisTemplate.opsForHash().put(key, item, value);
            if (time > 0) {
                expire(key, time);
            }
            return true;
        } catch (Exception e) {
            e.printStackTrace();
            return false;
        }
    }

    /**
     * 删除hash表中的值
     *
     * @param key  键 不能为null
     * @param item 项 可以使多个 不能为null
     */
    public void hdel(String key, Object... item) {
        redisTemplate.opsForHash().delete(key, item);
    }

    /**
     * 判断hash表中是否有该项的值
     *
     * @param key  键 不能为null
     * @param item 项 不能为null
     * @return true 存在 false不存在
     */
    public boolean hHasKey(String key, String item) {
        return redisTemplate.opsForHash().hasKey(key, item);
    }

    /**
     * hash递增 如果不存在,就会创建一个 并把新增后的值返回
     *
     * @param key  键
     * @param item 项
     * @param by   要增加几(大于0)
     * @return
     */
    public double hincr(String key, String item, double by) {
        return redisTemplate.opsForHash().increment(key, item, by);
    }

    /**
     * hash递减
     *
     * @param key  键
     * @param item 项
     * @param by   要减少记(小于0)
     * @return
     */
    public double hdecr(String key, String item, double by) {
        return redisTemplate.opsForHash().increment(key, item, -by);
    }

    // ============================set=============================

    /**
     * 根据key获取Set中的所有值
     *
     * @param key 键
     * @return
     */
    public Set<Object> sGet(String key) {
        try {
            return redisTemplate.opsForSet().members(key);
        } catch (Exception e) {
            e.printStackTrace();
            return null;
        }
    }

    /**
     * 根据value从一个set中查询,是否存在
     *
     * @param key   键
     * @param value 值
     * @return true 存在 false不存在
     */
    public boolean sHasKey(String key, Object value) {
        try {
            return redisTemplate.opsForSet().isMember(key, value);
        } catch (Exception e) {
            e.printStackTrace();
            return false;
        }
    }

    /**
     * 将数据放入set缓存
     *
     * @param key    键
     * @param values 值 可以是多个
     * @return 成功个数
     */
    public long sSet(String key, Object... values) {
        try {
            return redisTemplate.opsForSet().add(key, values);
        } catch (Exception e) {
            e.printStackTrace();
            return 0;
        }
    }

    /**
     * 将set数据放入缓存
     *
     * @param key    键
     * @param time   时间(秒)
     * @param values 值 可以是多个
     * @return 成功个数
     */
    public long sSetAndTime(String key, long time, Object... values) {
        try {
            Long count = redisTemplate.opsForSet().add(key, values);
            if (time > 0) {
                expire(key, time);
            }
            return count;
        } catch (Exception e) {
            e.printStackTrace();
            return 0;
        }
    }

    /**
     * 获取set缓存的长度
     *
     * @param key 键
     * @return
     */
    public long sGetSetSize(String key) {
        try {
            return redisTemplate.opsForSet().size(key);
        } catch (Exception e) {
            e.printStackTrace();
            return 0;
        }
    }

    /**
     * 移除值为value的
     *
     * @param key    键
     * @param values 值 可以是多个
     * @return 移除的个数
     */
    public long setRemove(String key, Object... values) {
        try {
            Long count = redisTemplate.opsForSet().remove(key, values);
            return count;
        } catch (Exception e) {
            e.printStackTrace();
            return 0;
        }
    }
    // ===============================list=================================

    /**
     * 获取list缓存的内容
     *
     * @param key   键
     * @param start 开始
     * @param end   结束 0 到 -1代表所有值
     * @return
     */
    public List<Object> lGet(String key, long start, long end) {
        return Optional.ofNullable(redisTemplate.opsForList().range(key, start, end)).orElse(new ArrayList<>());

    }

    public <T> List<T> lGet(String key, long start, long end, Class<T> clazz) {
        return this.lGet(key, start, end).stream().map(clazz::cast).collect(Collectors.toList());
    }

    /**
     * 获取list缓存的长度
     *
     * @param key 键
     * @return
     */
    public long lGetListSize(String key) {
        try {
            return Optional.ofNullable(redisTemplate.opsForList().size(key)).orElse(0L);
        } catch (Exception e) {
            e.printStackTrace();
            return 0;
        }
    }

    /**
     * 通过索引 获取list中的值
     *
     * @param key   键
     * @param index 索引 index>=0时， 0 表头，1 第二个元素，依次类推；index<0时，-1，表尾，-2倒数第二个元素，依次类推
     * @return
     */
    public Object lGetIndex(String key, long index) {
        try {
            return redisTemplate.opsForList().index(key, index);
        } catch (Exception e) {
            e.printStackTrace();
            return null;
        }
    }

    /**
     * 将list放入缓存
     *
     * @param key   键
     * @param value 值
     * @return
     */
    public boolean lSet(String key, Object value) {
        try {
            redisTemplate.opsForList().rightPush(key, value);
            return true;
        } catch (Exception e) {
            e.printStackTrace();
            return false;
        }
    }

    /**
     * 将list放入缓存
     *
     * @param key   键
     * @param value 值
     * @param time  时间(秒)
     * @return
     */
    public boolean lSet(String key, long time, Object... values) {
        try {
            redisTemplate.opsForList().rightPushAll(key, values);
            if (time > 0) {
                expire(key, time);
            }
            return true;
        } catch (Exception e) {
            e.printStackTrace();
            return false;
        }
    }

    /**
     * 将list放入缓存
     *
     * @param key    键
     * @param values 值
     * @return
     */
    public boolean lSetAll(String key, Object... values) {
        try {
            redisTemplate.opsForList().rightPushAll(key, values);
            return true;
        } catch (Exception e) {
            e.printStackTrace();
            return false;
        }
    }

    /**
     * 将list放入缓存
     *
     * @param key   键
     * @param value 值
     * @param time  时间(秒)
     * @return
     */
    public boolean lSet(String key, List<Object> value, long time) {
        try {
            redisTemplate.opsForList().rightPushAll(key, value);
            if (time > 0) {
                expire(key, time);
            }
            return true;
        } catch (Exception e) {
            e.printStackTrace();
            return false;
        }
    }

    /**
     * 根据索引修改list中的某条数据
     *
     * @param key   键
     * @param index 索引
     * @param value 值
     * @return
     */
    public boolean lUpdateIndex(String key, long index, Object value) {
        try {
            redisTemplate.opsForList().set(key, index, value);
            return true;
        } catch (Exception e) {
            e.printStackTrace();
            return false;
        }
    }

    /**
     * 移除N个值为value
     *
     * @param key   键
     * @param count 移除多少个
     * @param value 值
     * @return 移除的个数
     */
    public long lRemove(String key, long count, Object value) {
        try {
            Long remove = redisTemplate.opsForList().remove(key, count, value);
            return remove;
        } catch (Exception e) {
            e.printStackTrace();
            return 0;
        }
    }

    /**
     * 获取指定前缀的一系列key
     * 使用scan命令代替keys, Redis是单线程处理，keys命令在KEY数量较多时，
     * 操作效率极低【时间复杂度为O(N)】，该命令一旦执行会严重阻塞线上其它命令的正常请求
     *
     * @param keyPrefix key前缀
     * @return 查找到的keySet
     */
    private Set<String> keys(String keyPrefix) {
        String realKey = keyPrefix + "*";
        try {
            return redisTemplate.execute((RedisCallback<Set<String>>) connection -> {
                Set<String> binaryKeys = new HashSet<>();
                Cursor<byte[]> cursor = connection.scan(new ScanOptions.ScanOptionsBuilder().match(realKey).count(Integer.MAX_VALUE).build());
                while (cursor.hasNext()) {
                    binaryKeys.add(new String(cursor.next()));
                }

                return binaryKeys;
            });
        } catch (Exception e) {
            e.printStackTrace();
        }
        return Collections.emptySet();
    }

    /**
     * 删除指定前缀的一系列key
     *
     * @param keyPrefix key前缀
     */
    public Long removeAll(String keyPrefix) {
        try {
            Set<String> keys = keys(keyPrefix);
            return redisTemplate.delete(keys);
        } catch (Exception e) {
            e.printStackTrace();
        }
        return 0L;
    }

    /**
     * 设置redis的默认库
     *
     * @param num
     */
    public void setDataBase(int num) {
        LettuceConnectionFactory connectionFactory = (LettuceConnectionFactory) redisTemplate.getConnectionFactory();
        if (connectionFactory != null && num != connectionFactory.getDatabase()) {
            connectionFactory.setDatabase(num);
            redisTemplate.setConnectionFactory(connectionFactory);
            connectionFactory.resetConnection();
        }
    }

    public GeoResults getRadius(String key, Circle circle, RedisGeoCommands.GeoRadiusCommandArgs args) {
        GeoResults<RedisGeoCommands.GeoLocation<Object>> res = redisTemplate.opsForGeo().radius(key, circle, args);
        return res;
    }

    public List<String> mohu(String keys) {
        //"*" 类似sql的“%” *b*  查abc , b*  查bc,*b 查ab
        Set<String> set = redisTemplate.keys(keys);
        // 将set转成ArrayList
        List<String> list = new ArrayList<>(set);
        List<String> result = new ArrayList<>();
        if (list.size() != 0) {
            for (String str : list) {
                //通过查到的key值获取value，并放入result
                result.add(String.valueOf(redisTemplate.opsForValue().get(str)));
            }
        }
        return result;
    }

    /**
     * scan 实现
     *
     * @param pattern  表达式
     * @param count    步长，指每次调用scan时应执行的工作量
     * @param consumer 对迭代到的key进行操作
     */
    public void scan(String pattern, int count, Consumer<byte[]> consumer) {
        this.redisTemplate.execute((RedisCallback<?>) connection -> {
            try (Cursor<byte[]> cursor = connection.scan(
                    // count 默认为 5000，每次调用 count 的值可以随意指定，只要下一次传递 cursor 是上一次调用返回的 cursor 就行
                    ScanOptions.scanOptions()
                            .count(count > 0 ? count : 5000)
                            .match(pattern.endsWith("*") ? pattern : pattern + "*").build()
            )) {
                cursor.forEachRemaining(consumer);
                return null;
            } catch (IOException e) {
                e.printStackTrace();
                throw new RedisException(e);
            }
        });
    }

    /**
     * @see #scan(String, int, Consumer)
     */
    public void scan(String pattern, Consumer<byte[]> consumer) {
        scan(pattern, 0, consumer);
    }

    /**
     * scan 实现
     *
     * @param pattern 表达式
     * @param count   步长，指每次调用scan时应执行的工作量
     */
    public Set<String> scan(String pattern, int count) {
        return this.redisTemplate.execute((RedisCallback<Set<String>>) connection -> {
            try (Cursor<byte[]> cursor = connection.scan(
                    // count 默认为 5000，每次调用 count 的值可以随意指定，只要下一次传递 cursor 是上一次调用返回的 cursor 就行
                    ScanOptions.scanOptions()
                            .count(count > 0 ? count : 5000)
                            .match(pattern.endsWith("*") ? pattern : pattern + "*").build()
            )) {
                Set<String> keys = new HashSet<>();
                while (cursor.hasNext()) {
                    keys.add(new String(cursor.next(), StandardCharsets.UTF_8));
                }
                return keys;
            } catch (IOException e) {
                e.printStackTrace();
                throw new RedisException(e);
            }
        });
    }

    /**
     * @see #scan(String, int)
     */
    public Set<String> scan(String pattern) {
        return this.scan(pattern, 0);
    }

    /**
     * scan 排序版
     *
     * @see #scan(String, int)
     */
    public Set<String> scan(String pattern, int count, Comparator<String> comparing) {
        Set<String> keys = this.scan(pattern, count);
        if (keys.isEmpty()) return Collections.emptySet();

        return keys.stream().sorted(comparing).collect(Collectors.toCollection(LinkedHashSet::new));
    }

    /**
     * scan 排序版
     *
     * @see #scan(String, int, Comparator)
     */
    public Set<String> scan(String pattern, Comparator<String> comparing) {
        return this.scan(pattern, 0, comparing);
    }


    /**
     * Object 转 List<clazz>
     * solve Unchecked cast: java.lang.Object to java.util.List
     *
     * @author chechen
     * @date 2022-04-15
     */
    public static <T> List<T> castList(Object obj, Class<T> clazz) {
        if (!(obj instanceof List<?>))
            throw new ClassCastException("Cannot cast " + obj.getClass().getName() + " to " + clazz.getName());

        List<T> result = new ArrayList<>();
        for (Object o : (List<?>) obj)
            result.add(clazz.cast(o));
        return result;
    }

    private static final Lock lock = new ReentrantLock();

    public interface CacheCallback<E> {
        E execute();
    }

    /**
     * 执行HGet查询，并且携带锁来防止击穿
     *
     * @param rKey     redisKey
     * @param eKey     entityKey
     * @param callback 回调方法，根据不通的需求进行不同的DB查询手段
     * @return 执行结果
     */
    public <E> E executeHGetWithLock(String rKey, String eKey, CacheCallback<E> callback) {
        // 取值
        Object resultFromCache = get(CacheConstant.build(rKey, eKey));
        // 非空判断，若空就上锁再查询
        if (Objects.isNull(resultFromCache)) {
            lock.lock();
            try {
                resultFromCache = get(CacheConstant.build(rKey, eKey));
                // 若查询到数据仍然为空，就走DB查询
                if (Objects.isNull(resultFromCache)) {
                    E resultFromDB = callback.execute();
                    // 若DB不为空，就刷盘
                    if (Objects.nonNull(resultFromDB)) {
                        set(CacheConstant.build(rKey, eKey), resultFromDB, CacheConstant.COMM_ALIVE_TIME);
                    } else {
                        // 若为空，则防止穿透刷盘
                        set(CacheConstant.build(rKey, eKey), CacheConstant.CACHE_EMPTY_STR, 5);
                    }
                    // 直接返回DB查询值
                    return resultFromDB;
                }
            } finally {
                lock.unlock();
            }
        }
        return resultFromCache instanceof String ? null : (E) resultFromCache;
    }


}
